home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / olrdrs / 1st_111a.zip / INSTALL.INS < prev    next >
Text File  |  1993-05-23  |  16KB  |  438 lines
  1.         SPARKWARE
  2.  
  3.     ASSIGN(Default$,0,2)
  4.         SAVER 180
  5.  
  6. :TOP
  7.         DISPLAY OFF
  8.         CLS
  9.         CURSOR OFF
  10.         BLINK OFF
  11.         FILLSCRN(1,1,25,80,32,31,112)
  12.         BOX(3,5,23,75,48,7,1,1)
  13.         CLEAR_BOXES
  14.         SCREEN(1,SAVE)
  15.         DIALOG_BOX(1,0,0,1,"      About      ",4,51,112,112,1,116,15)
  16.         DIALOG_BOX(2,0,0,2,"    What's new   ",9,51,112,112,1,116,15)
  17.         DIALOG_BOX(3,0,0,3,"     Install     ",14,51,112,112,1,116,15)
  18.         DIALOG_BOX(4,0,27,4,"      Quit       ",19,51,112,112,1,116,15)
  19.         QPRINT("Thank you for purchasing @READER@ 1.10",5,7,49,-1)
  20.         QPRINT("This program will install @READER@",10,7,-1)
  21.         QPRINT("onto your computer's hard disk.  It")
  22.         QPRINT("will also update an older release of")
  23.         QPRINT("@READER@ to this new release version.")
  24.         QPRINT("Press the highlighted letter or",16,7,-1)
  25.         QPRINT("click your mouse on a button to")
  26.         QPRINT("make a selection.")
  27.         APRINT("Press the @X00@XF0 ESC @XFF key to quit.",21,7,-1)
  28.         DISPLAY ON
  29.         GET(Choice$,Default$)
  30.     ASSIGN(Default$,0,3)
  31.         CLEAR_BOXES
  32.         ON Choice$ GOTO ABOUT,NOTES,INSTALL,QUIT
  33.  
  34. :QUIT
  35.         CLS(7)
  36.         BOX(7,20,11,60,48,112,1,1)
  37.         QPRINT("Thank you for using @READER@",9,26,62,112)
  38.         IF NOT COMPARE(InstallOk$,True) THEN GOTO QUIT1
  39.         QPRINT("Type '1ST' to run @READER@",14,-1,-1)
  40.         QPRINT("Click on '1stTutor' to view the @READER@ tutorial",15,-1,-1)
  41. :QUIT1
  42.         LOCATE 22,1
  43.         CURSOR ON
  44.         EXIT
  45.  
  46. :ABOUT
  47.         DISPLAY OFF
  48.         BOX(3,5,23,75,240,7,1,1)
  49.         QPRINT("@READER@ Install",5,-1,-1)
  50.         QPRINT("─────────────────")
  51.         QPRINT("Copyright 1993 by Mark Herring",9)
  52.         QPRINT("All Rights Reserved")
  53.         QPRINT("Sparkware",12)
  54.         QPRINT("Post Office Box 386")
  55.         QPRINT("Hendersonville, Tennessee   37077")
  56.         QPRINT("(615) 230-8822 (BBS)",16)
  57.         QPRINT("(615) 230-MAIL (Voice)")
  58.         QPRINT("Press any key to continue",21,0,241,15)
  59.         DISPLAY ON
  60.         PAUSE
  61.         GOTO TOP
  62.  
  63. :NOTES
  64.         LIST "WHATS.NEW"
  65.         GOTO TOP
  66.  
  67. :INSTALL
  68.     ASSIGN(Install_Type$,0,0)
  69.         DISPLAY OFF
  70.         BOX(3,5,23,75,48,7,1,1)
  71.         QPRINT("Installing @READER@",5,7,49,-1)
  72.         QPRINT("You may choose to install the complete",8,7,48,7)
  73.         APRINT("@READER@ system, print the manuals, or")
  74.         QPRINT("only install the add-in systems.")
  75.         QPRINT("Press the highlighted letter or",14,7,-1)
  76.         QPRINT("click your mouse on a button to")
  77.         QPRINT("make a selection.")
  78.         APRINT("Press the @X00@XF0 ESC @XFF key to quit.",21,7,-1)
  79.         DIALOG_BOX(1,0,0,1," Complete install ",4,50,112,112,1,116,15)
  80.         DIALOG_BOX(2,0,0,2,"   Print manuals  ",9,50,112,112,1,116,15)
  81.         DIALOG_BOX(3,0,0,3,"     Add-ins      ",14,50,112,112,1,116,15)
  82.         DIALOG_BOX(4,0,27,4,"       Quit       ",19,50,112,112,1,116,15)
  83.         DISPLAY ON
  84.         GET(Choice$,4)
  85.         CLEAR_BOXES
  86.         ON Choice$ GOTO FULL_INSTALL,MANUALS,ADD-INS
  87.         GOTO TOP
  88.  
  89. :FULL_INSTALL
  90.     ASSIGN(Install_Type$,0,1)
  91.         GOSUB GET_TARGET
  92.  
  93.         IF NOT EXIST Target$+"1ST.EXE" THEN GOTO NEW_INSTALL
  94.         ASSIGN(Update$,0,True)
  95.         ASSIGN(SetFile$,0,Target$+"1ST.SET")
  96.         SET_LOAD SetFile$
  97.         SWITCH(10,OFF)
  98.         SET_SAVE SetFile$
  99.         OPEN("B",1,SetFile$)
  100.         SEEK(1,&H159)
  101.         ASSIGN(Value$,-60,"QSZ portx %4 sz %3 /NOCLS /CURSOR_OFF /NS")
  102.         WRITE(1,Value$)
  103.         SEEK(1,&H195)
  104.         ASSIGN(Value$,-60,"QSZ portx %4 rz %3 /NOCLS /CURSOR_OFF /NS")
  105.         WRITE(1,Value$)
  106.         SEEK(1,&H500)
  107.         LITERAL ASSIGN(Value$,-50,"@API$(5)QZIP %1 %2 /NOCLS /CURSOR_OFF")
  108.         WRITE(1,Value$)
  109.         SEEK(1,&H700)
  110.         LITERAL ASSIGN(Value$,-50,"@API$(5)QUNZIP %1 %2 %3 /NOCLS /CURSOR_OFF")
  111.         WRITE(1,Value$)
  112.         CLOSE 1
  113.         SCREEN(1,RESTORE)
  114.         QPRINT("Installing updated system files",6,-1,-1)
  115.         UNPACK "SYSTEM.ZIP" TO Target$ "*.*"
  116.         UP_SCRIPT Target$+"SYSTEMS.DAT"
  117.         ASSIGN(InstallOk$,0,True)
  118.         SCREEN(1,RESTORE)
  119.         DISPLAY OFF
  120.         QPRINT("This new release of 1stReader changes many of the switch",10,12,-1)
  121.         QPRINT("definitions from previous releases.  You *MUST* use the")
  122.         QPRINT("SETUP/SWITCHES command buttons from the opening screen")
  123.         QPRINT("in order to configure your system correctly.")
  124.         QPRINT("Press any key to continue...",21,-1,-1)
  125.         DISPLAY ON
  126.         BEEP
  127.         PAUSE
  128.         GOTO SCRIPTS
  129.  
  130. :NEW_INSTALL
  131.         QPRINT("Creating system subdirectory...",19,10,-1)
  132.         MKDIR Target$
  133.         QPRINT("Creating scripts subdirectory...")
  134.         MKDIR Scripts$
  135.         QPRINT("Creating packets subdirectory...")
  136.         MKDIR Packets$
  137.         SCREEN(1,RESTORE)
  138.         QPRINT("Installing main system files",6,-1,-1)
  139.         UNPACK "SYSTEM.ZIP" TO Target$ "*.*"
  140.         UNPACK "NEWSYS.ZIP" TO Target$ "*.*"
  141.  
  142. :SCRIPTS
  143.         SCREEN(1,RESTORE)
  144.         QPRINT("Installing script files",6,-1,-1)
  145.         UNPACK "SCRIPTS.ZIP" TO Scripts$ "*.*"
  146.         SCREEN(1,RESTORE)
  147.         QPRINT("Copying installation programs...",6,-1,-1)
  148.         QPRINT("1stReader keyfile",9,24,-1)
  149.         COPY("*.KEY",Target$)
  150.         QPRINT("Copying the installation programs...")
  151.         COPY("INSTALL.EXE",Target$)
  152.         COPY("*.INS",Target$)
  153.         QPRINT("Copying QUNZIP.EXE...")
  154.         COPY("QUNZIP.EXE",Target$)
  155.         QPRINT("Copying the WHATS.NEW file...")
  156.         COPY("WHATS.NEW",Target$)
  157.         IF COMPARE(Update$,True) THEN GOTO MANUALS
  158.  
  159.         QPRINT("Copying the tutorial packet")
  160.         COPY("SPARKY.QTU",Packets$)
  161.         COPY("SYSTEMS.DAT",Target$)
  162.         GET_BBS
  163.  
  164.         DISPLAY OFF
  165.         SCREEN(1,RESTORE)
  166.         QPRINT("Thank you for purchasing @READER@!",5,9,49,15)
  167.         QPRINT("Before you can run @READER@ we first",11,9,-1)
  168.         QPRINT("need to know a bit about your computer")
  169.         QPRINT("system.  You need to tell us which")
  170.         QPRINT("serial port is used to connect your")
  171.         QPRINT("system to your modem.")
  172.         QPRINT("Please make your selection now...",21,9,62,15)
  173.         DIALOG_BOX(1,0,49,"3F8,4","     Port 1      ",4,51,112,112,0,116,15)
  174.         DIALOG_BOX(2,0,50,"2F8,3","     Port 2      ",8,51,112,112,0,116,15)
  175.         DIALOG_BOX(3,0,51,"3E8,4","     Port 3      ",12,51,112,112,0,116,15)
  176.         DIALOG_BOX(4,0,52,"2E8,3","     Port 4      ",16,51,112,112,0,116,15)
  177.         DIALOG_BOX(5,0,27,"0","    No modem     ",20,51,112,112,0,116,15)
  178.         DISPLAY ON
  179.         GET(Serial$,1)
  180.         CLEAR_BOXES
  181.  
  182.         IF COMPARE (Serial$,"0") THEN GOTO DISPLAY
  183.         DISPLAY OFF
  184.         SCREEN(1,RESTORE)
  185.         QPRINT("How fast is your modem?",5,9,49,15)
  186.         QPRINT("@READER@ needs to know the maximum",11,9,-1)
  187.         QPRINT("speed your modem supports.  If you")
  188.         QPRINT("are unsure about just how fast your")
  189.         QPRINT("modem will transmit data over the")
  190.         QPRINT("telephone line we recommend you use")
  191.         QPRINT("'1200 baud' for your modem.")
  192.         QPRINT("A)",5,52,62,15)
  193.         QPRINT("B)",9,52,62,15)
  194.         QPRINT("C)",13,52,62,15)
  195.         QPRINT("D)",17,52,62,15)
  196.         QPRINT("E)",21,52,62,15)
  197.         QPRINT("Press (A-E) to select your modem speed...",21,9,62,15)
  198.         DIALOG_BOX(1,0,1065,"1200","  1200 baud  ",4,56,112,112,0,116,15)
  199.         DIALOG_BOX(2,0,1066,"2400","  2400 baud  ",8,56,112,112,0,116,15)
  200.         DIALOG_BOX(3,0,1067,"9600","  9600 baud  ",12,56,112,112,0,116,15)
  201.         DIALOG_BOX(4,0,1068,"19200"," 19,200 baud ",16,56,112,112,0,116,15)
  202.         DIALOG_BOX(5,0,1069,"38400"," 38,400 baud ",20,56,112,112,0,116,15)
  203.         DISPLAY ON
  204.         GET(Baud$,1)
  205.         CLEAR_BOXES
  206.  
  207.         PICK (ModemInit$,"Select your modem type (use the arrow keys to view more modems): ","MODEMS.DAT",102,1,50,51,50,30,7)
  208.  
  209.         DISPLAY OFF
  210.         SCREEN(1,RESTORE)
  211.         QPRINT("Which type of telephone service do you have?",5,9,49,15)
  212.